Top 10k strings from MicroHobby Semanal - Issue 045-048 (1985)(Hobby Press)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

  26  **********************
   4 ;"PARE LA CINTA":
   3 final=final+p1:
   3 cod<defcod):
   3 ;"PULSA CUALQUIERA PARA CONTINUAR ":
   3 ;" PARE LA CINTA ":
   3 ;"                                ":
   3 ,HORIZONTAL;"
   3 "23693",sa:
   3 "23624",ca:
   2 x=xx+ca*p1:
   2 x-ca,y-sa:
   2 x-ca,y+sa:
   2 x+ca,y-sa:
   2 x+ca,y+sa:
   2 s(a)=s(a)+1
   2 punt=punt+(beng*10
   2 maxcod=maxcod+u:
   2 l(i+u)=final:
   2 final+p1)=l$:
   2 fin=l(cod+u)-u:
   2 dy21=La2-dy2
   2 dy1=(La1*dy)/longitud
   2 dy12=La1-dy1
   2 dy0=longitud-dy
   2 dx1=(dx*dy1)/dy
   2 d$=n$(defcod,k
   2 cod<defcod
   2 camp=punt:
   2 c3=c3*p1-x*p2:
   2 c2=c2*p1-x*p2:
   2 c1=c1*p1-x*p2:
   2 Q$=("000"+
   2 PASOS=PASOS+1
   2 F(M),C(M);N(M)
   2 F(K),C(K);N(K)
   2 C(N)=B(N):
   2 ;"____________________________":
   2 ;"Pulsa una tecla":
   2 ;"PUNTOS";
   2 ;"PULSE UNA TECLA PARA SEGUIR":
   2 ;" Ahora dame los elementos:      "
   2 ,e(f);" ":
   2 (ll,cc)=107
   2 (ll,cc)=106
   2 (NPROG/DOS)
   2 "LONGITUD DE LA ARISTA MAS CER-  CANA A F2= ";La2
   2 "LONGITUD DE LA ARISTA MAS CER-  CANA A F1= ";La1
   2 "ALTURA SOBRE LA LINEA DEL HORIZONTE= ";dyh
   2 "23636",f2:
   2 "23635",f1:
   2 "22",CERO;B$:
   2  SIN REPETICION 
   2                             
   2                     
   2             
   2           
   1 z3=z3+p1*a3:
   1 z$="LAGARTIJOS":
   1 z$="COBARDICA":
   1 z$="1985":
   1 z$="'VALIENTE'":
   1 yy>ny)+(my-yy
   1 y>ny)+(my-y
   1 y=yy+sa*p1:
   1 y=yy+sa*p1
   1 y=y+si*sa:
   1 y=ny+(yy-ny
   1 y=(y3)*d/(z3+d)+oy:
   1 y3=y3+p1*a2:
   1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz                                8888888888888888888888888888888888888888888888888888888888888888
   1 xx>nx)+(mx-xx
   1 x>nx)+(mx-x
   1 x=x+si*ca:
   1 x=nx+(xx-nx
   1 x=(x3)*d/(z3+d)+ox:
   1 x3=x3+p1*a1:
   1 x12345678901=p2:
   1 x-xx,y-yy:
   1 x-xx,y-yy,
   1 x$=t$(m(x,1
   1 u;" LISTADO DE ";d$;"      ";
   1 u;"     ";n$(i,k
   1 trazar las aristas mas cercanas a f1 y f2
   1 trazar la primera arista (la mayor)
   1 t)=t$(m(x,2
   1 t)=r$(a,x,
   1 t$(m)=t$(m-1
   1 sa=ca/p1*p2:
   1 s(d)=s(d-1
   1 s$=(s$+"           ")(
   1 punt=punt-si:
   1 punt=punt-k:
   1 punt=punt-(5
   1 punt=punt-(10
   1 punt=punt+si
   1 punt=punt+k:
   1 punt=punt+(10
   1 pongo draw en la linea siguiente para probar pero es plot
   1 p2=ny+(y-ny
   1 p1=p1+l(i)-l(i+u):
   1 p1=nx+(x-nx
   1 p1+w+k);" ";p$(w+tir+p1
   1 p1+final+si)=l$+p$(l(i+u)
   1 p(punt+u)=i:
   1 p(punt+u)=b:
   1 p(punt+tir)=fin:
   1 p(punt+k)=n:
   1 p(punt)=lin:
   1 p(punt)=a:
   1 p$(w+k)+p1+w+k:
   1 p$(n+k)+tir:
   1 p$(n+k)+n+p1+k:
   1 n=p(punt+k):
   1 maxcod=cod-u:
   1 maxcod<defcod
   1 longitud=La
   1 ll,cc;"  ":
   1 lin=p(punt):
   1 li;" VIDAS"
   1 l(w)=l(w)+p1:
   1 l(i+u)-u):
   1 l(cod+u)-u:
   1 l$=p$(l(i)
   1 items=items+1
   1 i=p(punt+u):
   1 i$=i$+" ":
   1 h;"... ";:
   1 g$(f)="1":
   1 fuel acabado
   1 final=l(cod):
   1 fin=p(punt+tir):
   1 explosion misiles
   1 dy2=(La2*dy)/longitud
   1 dy2=(La*dy)/longitud
   1 dx=((df-dx)*dy2)/dy
   1 dx2=((df-dx)*dy2)/dy
   1 dx-dx1,dyh-dy1:
   1 dx-dx1,-(dy0-dy12):
   1 distancia entre focos
   1 d(f)=d(f)-1
   1 d(f),ee;" ":
   1 d$=n$(maxcod,tir
   1 d$=n$(maxcod,k
   1 d$;" ";a$;" ";b$
   1 ca=cod/p2*p1:
   1 beng=beng-1
   1 b=p(punt+u):
   1 b3=x*p1+c3*p2:
   1 b3=b3*p1-x*p2:
   1 b2=x*p1+c2*p2:
   1 b2=b2*p1-x*p2:
   1 b1=x*p1+c1*p2:
   1 b1=b1*p1-x*p2:
   1 b$=p$(n+tir+p1
   1 b$="  ****EN BUSCA DEL TESORO****  "
   1 a=p(punt):
   1 a3=x*p1+c3*p2:
   1 a3=x*p1+b3*p2:
   1 a2=x*p1+c2*p2:
   1 a2=x*p1+b2*p2:
   1 a1=x*p1+c1*p2:
   1 a1=x*p1+b1*p2:
   1 a$=p$(n+tir
   1 a$=n$(maxcod,k
   1 a$=(a$+"            ")(
   1 Zonik     
   1 Y$=" SI UNA NAVE ATERRIZA SOBRE TI, TE COGE Y TE LLEVA.              ESTATE ATENTO A LOS MENSAJES DELA RESISTENCIA.":
   1 Y$=" SALVA LA RESERVA DE AGUA DE LA TIERRA DEL ATAQUE DE UNAS NAVES ESPACIALES QUE LLEGAN  DEL EXTE-RIOR.                            TU MISION ES TAPAR LOS AGUJEROSPOR LOS QUE PONEN LAS TUBERIAS  PARA SACAR EL AGUA DE LA TIERRA. SI LAS NAVES LLEGAN A UN AGUJE-RO QUE  NO HAS TAPADO, ESTE  SE QUEDA PARA SIEMPRE.":
   1 VUELVES A JUGAR?
   1 VECTOR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
   1 UNO;"PONGA EN MARCHA LA CINTA";
   1 Tobogan   
   1 TZX por Manuel Gomez Amate
   1 SPACE-UNO,X1
   1 SPACE-UNO,CERO:
   1 SPACE,LINEA:
   1 SPACE,CERO:
   1 RUTINA PASOS
   1 RUTINA DE MI PARADA
   1 RUTINA AGUA EXTRA
   1 RECORD=PUNTOS:
   1 RECORD<PUNTOS
   1 Presentacion
   1 Perpectiva
   1 PUNTOS=PUNTOS+AGUA/100
   1 PRINTOB=5000
   1 PRESENTACION
   1 P$(PUNTOS);" PUNTOS  ";
   1 OTRAS ARISTAS
   1 N(K)=N(J+2
   1 Muerte de nave
   1 MOVIMIENTO MIO
   1 MOVIMIENTO DE LAS NAVES
   1 MICRO     
   1 MENSAJE DE LA RESISTENCIA
   1 M,HORIZONTAL;"  ":
   1 Logo      
   1 LagartijosR5
   1 La mole   
   1 LINEAS DE F2
   1 LINEAS DE F1
   1 LAGARTIJOS
   1 Instrucciones
   1 IZQUIERDA=1
   1 INSTRUCCIONES
   1 INICIALIZACION
   1 I,CERO;,,:
   1 Hobby Press
   1 HOYOS=HOYOS-1
   1 HOYOS=HOYOS+1
   1 HORIZONTAL>0
   1 HORIZONTAL=HORIZONTAL-1
   1 HORIZONTAL=HORIZONTAL+1
   1 HORIZONTAL=15
   1 HORIZONTAL<30
   1 HASTA=HASTA+.005
   1 GRAFICOS DEFINIDOS
   1 Final explosion
   1 Fin pantalla
   1 FUNCIONES DEFINIDAS
   1 F(I),C(I);N(I)
   1 Enlace de fuel y base oentre fuel, base y attr bacio.
   1 El pastor 
   1 ESCRITURA DE INSTRUCCIONES
   1 Definicion
   1 DOS=UNO+UNO
   1 DIRECCION=IZQUIERDA:
   1 DIRECCION=IZQUIERDA
   1 DIRECCION=DERECHA:
   1 DIRECCION=DERECHA
   1 DIRECCION=0
   1 Combinato Y
   1 Clasificacion
   1 Castellano
   1 Cargador  f
   1 Caracteres graficos
   1 Captura por lobo
   1 Captura de ovejas
   1 Caida en cepo
   1 CREACION DE LAS ARISTAS MAS CERCANAS A F1 , F2         
   1 CREACION DE LA ARISTA H
   1 COSA GORDA
   1 CINTA 12 CARA B
   1 CERO;"       ";
   1 CARACTERES GIGANTES
   1 CARAB     (
   1 CAPTURA DE TERRESTRE
   1 C$="  Por favor, elija un programa  "
   1 Bucle principal de mo-          vimiento
   1 B(N)=HORIZONTAL
   1 B$="                                "
   1 APOTEOSIS FINAL
   1 AGUA=AGUA-HOYOS*5
   1 AGUA=AGUA+200
   1 A(N)=A(N)+1
   1 A(N),B(N);"
   1 =(w=w)=(w=o
   1 ="L")-(378
   1 ;t$(a);" ";:
   1 ;"aterrizaje"
   1 ;"________________________________"
   1 ;"________"
   1 ;"______";
   1 ;"\3/  2!*3!  2*1*3*2*1   2    "
   1 ;"VIDAS  ";li
   1 ;"TECLAS";
   1 ;"TE QUEDAN ";
   1 ;"SUBCONJUNTOS DE ";n;" ELEMENTOS":
   1 ;"SUBCAMPEON";
   1 ;"SI QUIERES VER DE NUEVO LA DE-  MOSTRACION PULSA 'D', SI LO QUE QUIERES ES EMPEZAR, PULSA CUAL- QUIER OTRA                      ":
   1 ;"SCORE  ";sc;
   1 ;"RECORD=";RECORD;
   1 ;"RECORD: ";s$;" = ";k:
   1 ;"QUIERES LAS INSTRUCCIONES    S/N":
   1 ;"QUE DESEA?";
   1 ;"Pulsa ENTER para otro juego...":
   1 ;"PUNTOS=";PUNTOS;
   1 ;"PULSE UNA TECLA PARA MENU  "
   1 ;"PULSE UNA TECLA PARA DEMOSTRA-  CION"
   1 ;"PULSE CUALQUIER TECLA."
   1 ;"PULSA UNA TECLA":
   1 ;"PULSA UNA TECLA                 "
   1 ;"PULSA LA TECLA CORRESPONDIENTE       A LO QUE QUIERAS HACER     "
   1 ;"PARA ELLO PUEDE MOVER UNA DE LASTRES HILERAS (X,Y o Z), DE FORMAQUE TODOS CORREN UN LUGAR Y EL  ULTIMO SE PONE EL PRIMERO, ESTE MOVIMIENTO PUEDE SER EN SENTIDO HORARIO (-) O ANTIHORARIO (+)"
   1 ;"NOS COMPLACEMOS EN RECOMPEN-   SARTE CON ";
   1 ;"NECESITAS INSTRUCCIONES ?(S/N)":
   1 ;"LO HAS LOGRADO!! "''"PULSE M PARA MENU"
   1 ;"LIVES ";:
   1 ;"JUGADA";
   1 ;"JUEGAS OTRA ?"
   1 ;"IRA UN NUMERO, USTED";
   1 ;"INVASION";
   1 ;"IDQUIERDA O DERECHA (I/D)?"
   1 ;"HOYOS=";HOYOS
   1 ;"GAME OVER";
   1 ;"FUEL ";fu;"     ";
   1 ;"Elije la opcion que desees, cogelos mandos de tu mininave y     suerte...."''"Opciones: 1> Normal.                      2> Sin minas."
   1 ;"ESTE PROGRAMA SE AUTODESTRUIRA DENTRO DE      MOMENTOS";
   1 ;"ESTE ES EL TOBOGAN";
   1 ;"ESTE ES EL JUEGO DEL TOBOGAN";
   1 ;"ESTA SEGURO?";
   1 ;"ES ACONSEJABLE EXPERIMENTAR CON UN TOBOGAN ARMADO PARA OBTENER  REGLAS GENERALES (OPCION 2) ANTES DE LANZARSE A RESOLVER UNO"
   1 ;"EN SENTIDO HORARIO, CON EL 1 EN EL VERTICE SUPERIOR"
   1 ;"ELIGE TU NIVEL             (1/5)":
   1 ;"EL PASTOR";
   1 ;"EL LOBO":
   1 ;"DENTRO DE CADA CIRCULO";
   1 ;"DEBE ORDEBAR LOS NUMEROS";
   1 ;"CAMPEON";
   1 ;"AGUA=";AGUA;
   1 ;"5!= 5*4*3*2*1= 120"
   1 ;"4 SALIR DEL PROGRAMA"
   1 ;"3 RESOLVER UN TOBOGAN";
   1 ;"200 UNIDADES EXTRAS";
   1 ;"2 EXPERIMENTAR CON UN TOBOGAN     ORDENADO";
   1 ;"1 VER LAS REGLAS";
   1 ;"/5\    5!   5*4*3*2*1  20 "
   1 ;"!!HASTA LA PROXIMA!!":
   1 ;"!!AQUI LA RESISTENCIA!!";
   1 ;" combinaciones"
   1 ;" TOTAL: ";w;" subconjuntos"
   1 ;" TOTAL: ";h-1
   1 ;" SI QUIERES VER DE NUEVO LA DE- MOSTRACION PULSA 'D', SI LO QUE QUIERES ES EMPEZAR PULSA CUAL-  QUIER OTRA                      "
   1 ;" PULSA UNA TECLA PARA JUGAR ":
   1 ;" PULSA CUALQUIERA PARA CONTINUAR":
   1 ;" PULSA CUALQUIERA PARA CONTINUAR"
   1 ;" PULSA CUALQIERA PARA SEGUIR ":
   1 ;" PERMUTACIONES..........2"
   1 ;" PERMUTACIONES DE ";m;" ELEMENTOS ":
   1 ;" MODIFICAR    ";n$(i,k
   1 ;" JUEGO TERMINADO "
   1 ;" FIN DEL PROGRAMA.......3"
   1 ;" ERES UN HEROE ";
   1 ;" Dime el numero de elementos      del conjunto (MINIMO 3) y el     numero de caracteres de          cada elemento:              "
   1 ;" DAVID FERNANDEZ LORY Y CIA.":
   1 ;" COMBINACIONES..........1"
   1 ;" Ahora dime cuantos elementos     han de tener los subconjuntos    que quieres formar (MINIMO 2)"
   1 ;" - TAPA LOS AGUJEROS":
   1 ;" - IZQUIERDA        ";
   1 ;" - DERECHA";
   1 ;"  MENSAJE DE LA RESISTENCIA:          QUIERES VOLVER? S/N":
   1 ;"  El objetivo del juego es reco-ger todos los objetos que se en-cuentran esparcidos por el labe-rinto.Para ello deberemos esca- par de la MOLE que protege el - tesoro del laberinto.Posees tres vidas que iras perdiendo si ca-es en manos de la MOLE.           Hay un pasage secreto que pue-des aprovechar para escapar de -la MOLE y en el que puedes pa-  sar al siguiente nivel tras ha- ber recogido todos los objetos. "
   1 ;"  Dime el numero de elementos     (COMO MINIMO 3) y el numero de   caracteres de cada uno de        ellos:                      "
   1 ;"   RECORD EN   ";
   1 ;"   = _____= _________= __= 10"
   1 ;"    Invasion   
   1 ;"      ";
   1 ;"       ":
   1 ;"            DE AGUA":
   1 -(df-(dx+dx2)),dy-dy2:
   1 -(df-(dx+dx2)),-(dy0-dy21):
   1 ,e(f);" ";
   1 ,HORIZONTAL;D$
   1 ,HORIZONTAL;C$;
   1 ,HORIZONTAL;"--":
   1 ,HORIZONTAL;"  ";
   1 ,HORIZONTAL;"  "
   1 ,HORIZONTAL+1
   1 ,HORIZONTAL)=104
   1 ,D.L.: M-36598-84
   1 ,B(N);"  ";
   1 ,B(N);"  ":
   1 +dy-longitud:
   1 *dif)+(vi*10
   1 *** CINTA-MICROHOBBY ***
   1 );" ";p$(w+tir
   1 (y-yy)/(x-xx)+(
   1 (x-xx)=-u):
   1 (p2/32)";:
   1 (p1*p1+p2*p2):
   1 (n);"...";t$(n):
   1 (ll,cc)=214
   1 (ll,cc)=111
   1 (ll,cc)=110
   1 (ll,cc)=109
   1 (ll,cc)=108
   1 (d(f),ee)=214
   1 (d(f),ee)=108
   1 (d(f),ee)=105
   1 (a);"...";t$(a):
   1 (VALOR)<"A"
   1 (PUNTOS)):
   1 (M,HORIZONTAL)
   1 '"PULSA UNA TECLA"
   1 "ten esta aumentara considerable-mente."
   1 "p1<-65535
   1 "na, misil, tu propia nave o con-tra la tierra, en cuyo caso per-deras una de las cuatro naves   que posees al principio."
   1 "________________________________":
   1 "Una vez aposentado en alguna de las plataformas de aterrizaje,  gamaras 500 puntos y repostaras 100 litros de fuel."
   1 "Tu mision es salir de la nave y recoger las maximas cajas meta- licas que puedas y aterrizar en las plataformas adecuadas para  ello, sin chocar con ninguna mi-":
   1 "Teclas de control: 5> Izquierda                    8> Derecha                      7> Reactores"
   1 "TECLAS:   /O/ IZQUIERDA                   /P/ DERECHA                     /Q/ SUBIR                       /A/ BAJAR           "
   1 "TAMBIEN DISPONES DE LAS TECLAS"''
   1 "Si ademas caes sobre la cisternaobtendras 300 litros mas.       Vijila tu fuel, pues se ira gas-tando, y con mayor rapidez si tepropulsas hacia arriba con los  reactores. Si tu fuel se agota  explotaras y perderas una nave, pero antes si tienes menos de   200 litros el computador de vue-lo te lo advertira intermitente-mente."
   1 "SCORE ";sc;"      ";
   1 "Por ello se ha lanzado una gran nave que transportara a unos as-tronautas hasta ZOINK. Una vez  alla divisan que una civiliza-  cion anterior dejo rastros de suexistencia, minas, misiles, cis-ternas de fuel, cajas  metalicascon los minerales, y plataformasde misiles y de aterrizaje."
   1 "Para poder utilizarlo debes de  comprender una serie de con-    ceptos muy simples."'':
   1 "PULSA UNA TECLA PARA EMPEZAR"
   1 "PULSA UNA TECLA PARA CONTINUAR":
   1 "PALABRA NO DEFINIDA","MENSAJE NO INTERPRETABLE","USO EN COMPILACION DE"
   1 "P","E","R","S","P","E","C","T","I","V","A"," ","C","O","N","I","C","A"
   1 "Objetos: ";
   1 "Nombre del pastor ?",a$:
   1 "NOTA: Para poder utilizar estas teclas debe de estar en la pregunta (I/D)?"'''
   1 "NOMBRE DEMASIADO LARGO","No. PARAMETROS ERRONEO","NUMERO FUERA DE RANGO","NO QUEDA MEMORIA DISPONIBLE"
   1 "NOMBRE DE LA IMAGEN";a$
   1 "MicroHobby Semanal numeros 45 a 48
   1 "MOVIMIENTO? (M PARA MENU) ";
   1 "Luego preguntara (I/D)? respon- deras pulsando cualquiera de lasdos teclas"''
   1 "Los grandes astronomos de la    tierra han descubierto un nuevo planeta, ZOINK, el cual pesee   una incalculable riqueza en mi- nerales necesarios para la tie- rra."
   1 "Lo mejor es que lo intentes tu y probando te daras cuenta de    las posibilidades que tienes coneste programa."''
   1 "LONGITUD DE LA ARISTA= ";longitud
   1 "LONGITUD DE LA ARISTA= ";La
   1 "Invasion"
   1 "Introduce tu nombre: ";
   1 "Este es un programa con el que  podras realizar todo tipo de    PERPESTIVAS CONICAS."'':
   1 "En primer lugar te dire que los focos son unos puntos de los    cuales va a depender tu dibujo."'':
   1 "Elementos: ";n:
   1 "Elementos: ";m;" Caracteres: ";t:
   1 "Elementos: ";m;"  Caracteres: ";t:
   1 "E-El pastor","F-Tobogan","G-Lagartijos","H-Zonik"
   1 "Dificultad (1-3)";dif:
   1 "Despues te pedira la arista don-de se unen los puntos que cortan las lineas que parten de los   focos."'':
   1 "DISTANCIA ENTRE LOS FOCOS= ";df
   1 "DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA M= ";dy
   1 "DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA H= ";dy
   1 "DISTANCIA AL FOCO IZQUIERDO= ";dx
   1 "DISTANCIA AL FOCO INZQIERDO= ";dx
   1 "Cada 10000 puntos obtienes una  nave extra pero se te dara si   aterrizas, y hasta un maximo de cuatro, (las que aparecen en el panel de control son las que nosquedan todavia sin contar con laque estamos pilotando en ese mo-mento)."
   1 "Al principio cuando los misiles se lancen tu velocidad se vera  disminuida,pero una vez explo-":
   1 "A-Perpectiva","B-La mole","C-Combinato","D-Logo"
   1 "64"+NPROG)
   1 "5";"cara: ";
   1 "5";"Programa: ";
   1 "5";"Programa inexistente":
   1 "5";"'R' Vuelve al menu"
   1 "5";"'L' Carga el programa";
   1 "32"-I;C$(
   1 "258")=final:
   1 "257")=maxcod:
   1 "22",CERO;C$(I
   1 "22",CERO;B$
   1 "22",CERO;
   1 "10";w;"   ";n$(w,k
   1 ","C","A","R","L","O","S"," ","P","E","R","E","Z"," ","R","E","C","I","O"
   1 "+Y","-X","-Y","+X"
   1 "(Z)  PARA DIBUJAR OTRA ARISTA."''
   1 "(S)  PARA SALVAR LA IMAGEN."''''
   1 "(B)  PARA BORRAR LA PANTALLA."''
   1 " Una vez iluminado el campo, a- pareceran 6 ovejas,6 cepos y 3  lobos;si falta alguna de las    ovejas, es porque se encuentra  en el mismo lugar que un lobo o un cepo, pero el pastor los dis-tingue, ya que a las ovejas las coge con las manos, en los ceposcae por los pies y el lobo le a-trapa por la cabeza." 
   1 " Por ejemplo: 5!, quiere decir  que un conjunto de 5 elementos  podemos ordenarlo de 120 manerasdiferentes."
   1 " Por ejemplo: /5\"
   1 " Las permutaciones de un conjun-to de A elementos corresponden  a el total de subconjuntos, que con esos mismos A elementos po- demos conseguir a base de orde- narlos de distinta manera, sin  repetirlos." 
   1 " Las ovejas y los cepos permane-cen inmoviles mientras dura el  juego, pero los lobos se mueven en la oscuridad."
   1 " Las ovejas se deben recoger de una en una, pues las que se co- gen de mas, se pierden en el ca-mino y no se pueden recuperar."
   1 " Hay tres niveles de dificultad,que determinan una distinta pun-tuacion y distinto numero de vi-das y bengalas y la duracion de estas."
   1 " Este programa ademas de decirtecuantos, te dice cuales, para   ello solo tienes que seguir sus preguntas." 
   1 " Este programa ademas de decirtecuantas, te dice cuales. Para   ello solo tienes que seguir sus preguntas."
   1 " El pastor ha perdido sus ove-  jas; es de noche y para poder   verlas dispone de varias benga- las (de 1 a 6), segun el grado  de dificultad elegido. Para u-  sarlas pulsa 'B '."
   1 " El movimiento se realiza con   las teclas del cursor. Las ben- galas se disparan con 'B' en    cualquier momento del juego." 
   1 " El juego termina cuando se re- cogen las 6 ovejas, o cuando se acaban las vidas, puntuando las vidas o bengalas que resten." 
   1 " Como sabras, las COMBINACIONES de un numero (A) sobre otro (B),corresponden al total de subcon_juntos de B elementos que pode- mos obtener del total de A ele_ mentos, SIN REPETIR NINGUNO."
   1 "              \3/  quiere decir en realidad cuantos subconjuntosde 3 elementos podemos realizar con un conjunto de 5 elementos, que como habras visto en la de- mostracion son 10." 
   1 "                          "
   1  Tu minimave";
   1  Reactores en marcha";
   1  Plataforma de";
   1  Plataforma aerea";
   1  Pedro Silos Die **
   1  P E R M U T A C I O N E S 
   1  LA BABY DE LAS ESTRELLAS":
   1  Juan Fradera";
   1  Juan Fradera   ":
   1  C O M B I N A C I O N E S 
   1  A. Gonzalez  **
   1  **  INICIALIZACION  **
   1  **   PRESENTACION   **
   1  **    S/R RESTOB    **
   1  **    S/R REGLAS    **
   1  **    S/R PRINTOB   **
   1  **    S/R NEOTOB    **
   1  **    EL TOBOGAN    **
   1  **     S/R VTOB     **
   1  **     S/R RMOV-    **
   1  **     S/R RMOV+    **
   1  **     S/R IMOV     **
   1  **     S/R EMOV     **
   1  **      SALIDA      **
   1   EDITOR  
   1   Cisterna fuel";
   1   Caja con minerales";
   1   COMPILACION  
   1                                
   1                               
   1                        
   1                      
   1                    
   1                 
   1                
   1               
   1